home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / win / vb / shufler.exe / SOUND1.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1992-04-12  |  8.2 KB  |  223 lines
  1. Sound1
  2. System Sound Shuffler
  3. Form1,
  4. Picture1
  5. Picture3
  6. coEvents
  7. Label1
  8. &Event:
  9. Label2
  10. Current Sound:
  11. laSound
  12. Label1
  13. Shuffle &Files:
  14. lbFiles
  15.     chEnabled
  16. Shuffling E&nabled
  17. Command1
  18.     &Add File
  19. Command1
  20. &Remove File
  21. Command1
  22. &Play File
  23. Command1
  24. &Set Current
  25. Command1
  26. Shu&ffle
  27. Command1
  28. E&xit
  29. MMControl1
  30.     MMControl
  31.     CMDialog1
  32. CommonDialog
  33. Form_Click
  34. Form_LostFocus
  35. @    Form_Load{
  36. WindowState_
  37. coEvents
  38. Asterisk
  39. Default/
  40. Exclamation
  41. Critical 
  42.     ListIndexO
  43. coEvents_Changeh
  44. coEvents_Click
  45. IniApp
  46. lbFiles=
  47.     ListCount
  48. GetIniSections"
  49. PassedStringz
  50. Sizey
  51. GSioLurkerPath
  52. FioGetForumNames
  53. FALSE
  54. GioForumsArray
  55. ForumNames
  56. LastNdx
  57. NextNdx
  58. Counter4
  59. SectionsR
  60. temp@
  61. GetPrivateProfileString
  62.     ShadeForm
  63. Sound1G
  64. AutoRedraw
  65.     MakeBevel
  66. Picture3
  67. Command1_Click
  68. Index
  69.     CMDialog1
  70. Actionw
  71. DefaultExt5
  72. DialogTitle
  73. Filter
  74. FlagsP
  75. OFN_FILEMUSTEXIST
  76.     gsInitDir%
  77. DLG_FILE_OPEN
  78. DLG_FILE_SAVE
  79.     DLG_COLOR'
  80. DLG_FONTx
  81.     DLG_PRINTI
  82. DLG_HELPg
  83. OFN_READONLY
  84. OFN_OVERWRITEPROMPTh
  85. OFN_HIDEREADONLY
  86. OFN_NOCHANGEDIR
  87. OFN_SHOWHELP
  88. OFN_NOVALIDATE
  89. OFN_ALLOWMULTISELECT
  90. OFN_EXTENTIONDIFFERENT
  91. OFN_PATHMUSTEXIST]
  92. OFN_CREATEPROMPTl
  93. OFN_SHAREAWARE
  94. OFN_NOREADONLYRETURN$    
  95. CC_RGBINITR
  96. CC_FULLOPEN
  97. CC_PREVENTFULLOPEN
  98. CC_SHOWHELP
  99. InitDir
  100. FName
  101. FileName
  102. FilterIndex
  103. FTitle#
  104.     FileTitle
  105. WritePrivateProfileString
  106. lpApplicationName
  107.     lpKeyName>
  108. lpString7
  109. lplFileName*
  110. ResL    
  111.     FioMsgBox{
  112. MsgType
  113. Title
  114. MB_ICONQUESTION
  115. KillSection
  116. lpSectionName
  117. lpFileName
  118. KillIniKey
  119. UpdateFiles
  120. UpdateEventsA    
  121.     SioMsgBox
  122. MB_ICONASTERISK
  123. MMControl1'
  124. Notify
  125.     Shareable
  126. DeviceType
  127. Command>
  128. Error
  129. TimeFormat
  130. MCI_FORMAT_MILLISECONDS
  131. Label1
  132. Caption
  133. Length
  134. Label2
  135.     chEnabledq
  136. Value
  137. chEnbabled_Click
  138. chEnbabled_DragDrop
  139. Source
  140. chEnbabled_DragOver
  141. Stateh
  142. chEnbabled_GotFocus.
  143. chEnbabled_KeyDown
  144. KeyCode
  145. Shift
  146. chEnbabled_KeyPress
  147. KeyAscii
  148. chEnbabled_KeyUp
  149. chEnbabled_LostFocus
  150. NewFlag
  151. chEnabled_Click
  152. MCIError
  153. MB_ICONEXCLAMATION,    
  154. MCI_MODE_NOT_OPEN
  155. PlayWav?
  156. lbFiles_ClickS
  157. lbFiles_DblClick
  158. GetProfileString
  159. WinKey
  160. CurrentSound
  161. laSound
  162. MakeCurrent
  163. MakeFileCurrent
  164. Event
  165. SetProfileString
  166. WriteProfileString
  167. giNumEvents
  168. gEventsArray
  169. Scramble
  170. MousePointer
  171. Junk6    
  172. Screen
  173. Shuffle
  174. fMsgBox
  175. sMsgBox
  176. Form_Load
  177. coEvents_Click
  178. Enabled"
  179. Shuffle.ini"
  180. Command1_Click
  181. Add File
  182. Select Sound File"
  183. Sound (*.wav)|*.wav"
  184. Shuffle.ini"
  185. Remove a files
  186. Select a sound file to remove"
  187. System Sound Shuffler"
  188. Are you sure you want to remove 
  189. System Sound Shuffler"
  190.     Res% = fMsgBox(Msg$, MB_ICONQUESTION + 3, Title$)
  191. Shuffle.ini"
  192. Play selected file
  193. Select a sound file to play"
  194. System Sound Shuffler"$
  195. RandomizeR
  196. Sounds
  197. [None]
  198. Set Current
  199. UpdateFiles
  200. Shuffle.ini"
  201. Shuffle.ini"
  202. Sounds
  203. [None]
  204. chEnabled_Click
  205. Enabled"
  206. Shuffle.ini"
  207. PlayWav
  208. WaveAudio"
  209. MCI_FORMAT_MILLISECONDS
  210. Close"
  211. Error loading or playing Sound File"
  212. System Sound Shuffler"$
  213.  If Not MMControl1.Mode = MCI_MODE_NOT_OPEN Then
  214.  MMControl1.Command = "Close"_
  215.  End Ifr
  216. lbFiles_DblClick
  217. MakeFileCurrent
  218. Select a sound file to make current"
  219. System Sound Shuffler"$
  220. Events
  221. Shuffle.ini"
  222. Sounds
  223.